;*************************************************************************
;*  AmigaWriter Patch-Installer Version 1.06   1 Juli 2000           *
;*                                                                                         *
;*  2000 HAAGE & PARTNER Computer GmbH                       *
;*                                                                                         *
;*  If you have any installer questions please let us know!           *
;*                                                                                         *
;*************************************************************************
;
; $VER: AmigaWriter V2.20 Install Version 1.06 (1.07.2000)

(complete 0)

; Die Versionsnummer und das Erstellungs-Datum der hier installierten
; Versionen.

(set #awnewver "2")
(set #awnewrev "20")

(set #amigawriter-version "2.20")
(set #amigawriter-date "(30.06.2000)")

; // Die Dateigren

(set #size-komplett 2) ; MByte CD-Installation

(set #awvernum (getversion "AmigaWriter:AmigaWriter"))
(set #awver (/ #awvernum 65536))
(set #awrev (- #awvernum (* #awver 65536)))
(set #awppcvernum (getversion "AmigaWriter:AmigaWriterPPC"))
(set #awppcver (/ #awppcvernum 65536))
(set #awppcrev (- #awppcvernum (* #awppcver 65536)))

;====================================================================
; Initialisierungen

; --- English strings ---

    (set #currentversion (cat "\n\n"
        "This version "awver"."#awrev" of AmigaWriter on your harddisk \n"
        "is the current one. It is not needed to patch this version.\n"
        "\n"))

    (set #noaw_installed (cat "\n\n"
        "AmigaWriter-Assign not found. Please install AmigaWriter\n"
        "from your original disks first.\n"
        "\n"))

    (set #wrongos "\n Sorry, you will need OS3.0 or better\n")

    (set #wrongcpu "\n Sorry, you will need min. a 68020 CPU to use AmigaWriter\n")

    (set #welcome (cat "\n\n"
        "Welcome to the installation of the new word processor AmigaWriter\n\n"
        "Version "#amigawriter-version " of "#amigawriter-date"\n\n"
        "This script patches the old version "#awver"."#awrev" of AmigaWriter and some\n"
        "new system librarys onto your harddisk!\n\n"
        " 2000 HAAGE&PARTNER Computer GmbH\n"
        ))

    (set #install_wizardlib
       "Copying the Wizard.Library")

    (set #install_wizardlib_help
       "The Library makes very short programms!")

    (set #install_applib
       "Copying the Appmanager.Library")

    (set #install_applib_help
       "The Library makes very short programms!")

    (set #patch_error (cat "\n\n"
        "Error during unpacking!\n\n"
        "Maybe diskspace got low or you have protected\n"
        "some files.\n"
        ))
    (set #install_patch (cat "\n\n"
        "Install the newest AmigaWriter version "#amigawriter-version"\n\n"))
   
    (set #wrk_awpatch (cat "\n\n"
        "Patch is running. Please wait a little while.\n\n"))

   (set #successfull (cat "\n\n"
        "Installation successfull. \n\n"
        "Please restart AmigaWriter and load the document FEATURES2.20!\n\n"))

(if (= @language "deutsch") (

    (set #noaw_installed (cat "\n\n"
        "AmigaWriter konnte auf Ihrer Festplatte nicht gefunden werden.\n\n\n"
        "Bitte installieren Sie zuerst von den Original-Disketten, bevor\n"
        "Sie den Patch ausfhren\n\n"))

    (set #wrongos "\n Sorry, AmigaWriter bentigt mind. OS3.0.\n")

    (set #wrongcpu "\n Sorry, das AmigaWriter-Paket setzt eine 68020 CPU voraus!\n")

    (set #welcome (cat "\n\nWillkommen beim ersten Patch der neuen\n"
        "Textverarbeitung AmigaWriter.\n\n"
        "Version "#amigawriter-version " vom "#amigawriter-date"\n\n"
        "Dieses Skript patched Ihre alte Version "#awver"."#awrev" von AmigaWriter\n"
        "und installiert verschiedene neue Bibliotheken und Zusatzdateien\n"
        "auf Ihre Festplatte.\n\n"
        " 2000 HAAGE&PARTNER Computer GmbH\n"
        ))

   (set #install_wizardlib
      "Kopiere die Wizard.Library")
   (set #install_wizardlib_help
      "Sie ist fr die sehr kurzen Programme verantwortlich!")
   (set #install_applib
      "Kopiere die Appmanager.Library")
   (set #install_applib_help
      "Sie ist fr die sehr kurzen Programme verantwortlich!")

   (set #patch_error (cat "\n\n"
       "Fehler beim Entpacken!\n\n"
       "Stellen Sie bitte sicher, da Ihre Festplatte\n"
       "ausreichend Speicherkapazitt hat, und, falls\n"
       "die Dateien bereits vorhanden sind, diese nicht\n"
       "lsch- oder schreibgeschtzt sind.\n"
       ))

   (set #install_patch (cat "\n\n"
       "Installiere die neueste AmigaWriter Version "#amigawriter-version"\n\n"))

    (set #currentversion (cat "\n\n"
        "Die auf Ihrer Festplatte gefundene Version "#awver"."#awrev" von AmigaWriter \n"
        "ist offensichtlich die aktuelle. Sie knnen den Patch auf diese \n"
        "Version nicht anwenden!\n"))

    (set #wrk_awpatch (cat "\n\n"
        "Patch luft.\n\nBitte haben Sie etwas Geduld!\n\n"))

   (set #successfull (cat "\n\n"
        "Die Installation ist erfolgreich abgeschlossen. \n\n"
        "Bitte starten Sie AmigaWriter neu und laden das Dokument FEATURES2.20!\n\n"
        "Viel Spa mit AmigaWriter 2.20."))
))

(set #os-version (/ (getversion) 65536))
(set #os-13 (< #os-version 36))
(set #os-20 (>= #os-version 36))
(set #os-21 (>= #os-version 38))
(set #os-30 (>= #os-version 39))

(set setpatchvernum (getversion "C:SetPatch"))
(set setpatchver (/ setpatchvernum 65536))
(set setpatchrev (- setpatchvernum (* setpatchver 65536)))

; ------------ Die Pfadnamen der einzelnen Quell-Dateien ----------------

(set #amigawriter-patch1        "AW-Patch68K2.0->2.20")
(set #amigawriter-patch2       "AW-PatchPPC2.0->2.20")
(set #amigawriter-patch3        "AW-Patch68K2.10->2.20")
(set #amigawriter-patch4       "AW-PatchPPC2.10->2.20")

(set #libs                              "Libs")
(set #catalogs                       "Catalogs")
(set #documents                    "Documents")
(set #wizardfile                      "AmigaWriter.wizard")

;=====================================================================================
; // Beginn der Installation
;=====================================================================================

; ----------------------------- Prozeduren ------------------------------

(Procedure @Make_Folder
    (
    (set #folder (tackon #folder "AmigaWriter"))
        (if (= (exists #folder) 0)
            (
            (makedir #folder (infos))
            )
            (
            (set #update 1)        ; // Doch schon vorhanden!
            )
        )
    )
)

; // wird min. unter 3.0 installiert ?

(if (= #os-30 0)

    (
        (message #wrongos)
        (exit (quiet))
    )
)

(if (patmatch "68000|68010" (database "cpu"))
    (
        (message #wrongcpu)
        (exit (quiet))
    )
)

(onerror (
    (if (> @ioerr 0)
        (message (cat "\n ERROR CODE: " @ioerr "\n\n"))
    )
))

; Prfen ob ein Assign vorhanden ist. Wenn nicht kann ich nichts machen.
;-----------------------------------

(if (= (exists "AmigaWriter:" (noreq)) 0)
    (
    (message #noaw_installed)
    (exit (quiet))
    )
)

(if(= #awver #awnewver)
     ((if (= #awrev #awnewrev)
         (
             (message #currentversion)
             (exit (quiet))
         )
     ))
)

(message #welcome)

(complete 2)

; // Alte Version prfen und entsprechende Abfrage ausgeben!--------------------------------------------

(set #update 1)

(set #folder (getassign "AmigaWriter"))

(set #patcherror 0)

(debug "version "#awver "revision "#awrev "ppcversion "#awppcver "ppcrevision "#awppcrev)

(if(= #awver 2)
     (
     (if (= #awrev 0)
         (
              (working #wrk_awpatch)
              (set #patcherror (run #amigawriter-patch1))
         )
     ))
)

(complete 10)

(if  ( <> #patcherror 0) ; Probleme beim Patchen
    (
    (message #patch_error)
    (exit (quiet))
    )
)

(if(= #awppcver 2)
     ((if (= #awppcrev 0)
         (
              (working #wrk_awpatch)
              (set #patcherror (run #amigawriter-patch2))
         )
     ))
)

(complete 20)

(if  ( <> #patcherror 0) ; Probleme beim Patchen
    (
    (message #patch_error)
    (exit (quiet))
    )
)

(if(= #awver 2)
     ((if (= #awrev 10)
         (
              (working #wrk_awpatch)
              (set #patcherror (run #amigawriter-patch3))
         )
     ))
)

(complete 30)

(if  ( <> #patcherror 0) ; Probleme beim Patchen
    (
    (message #patch_error)
    (exit (quiet))
    )
)

(if(= #awppcver 2)
     ((if (= #awppcrev 10)
         (
              (working #wrk_awpatch)
              (set #patcherror (run #amigawriter-patch4))
         )
     ))
)

(complete 50)

(if  ( <> #patcherror 0) ; Probleme beim Patchen
    (
    (message #patch_error)
    (exit (quiet))
    )
)

(complete 60)

(copyfiles
   (prompt  #install_patch)
   (help    @copyfiles-help)
   (source  #libs)
   (dest    (tackon #folder "Libs"))
   (all)
;   (confirm)
)

(complete 70)

(copyfiles
   (prompt  #install_patch)
   (help    @copyfiles-help)
   (source  #catalogs)
   (dest    (tackon #folder "Catalogs"))
   (all)
;   (confirm)
)

(complete 80)

(copyfiles
   (prompt  #install_patch)
   (help    @copyfiles-help)
   (source  #documents)
   (dest    (tackon #folder "Documents"))
   (all)
;   (confirm)
)

(complete 90)

(copyfiles
   (prompt  #install_patch)
   (help    @copyfiles-help)
   (source  #wizardfile)
   (dest    #folder)
)

(run "avail flush")

(complete 100)

(exit #successfull (quiet))
